developer/Samples/NET 4.6/Samples for Parallel/Raytracer/Raytracer_VisualBasic/ISect.vb

   1 '--------------------------------------------------------------------------
   2 '
   3 '  Copyright (c) Microsoft Corporation.  All rights reserved.
   4 '
   5 '  File: ISect.vb
   6 '
   7 '--------------------------------------------------------------------------
   8
   9 Public Class ISect
  10     Public Thing As SceneObject
  11     Public Ray As Ray
  12     Public Dist As Double
  13
  14     Public Sub New(ByVal thing As SceneObject, ByVal ray As Ray, ByVal dist As Double)
  15         Me.Thing = thing
  16         Me.Ray = ray
  17         Me.Dist = dist
  18     End Sub
  19 End Class